home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu494.dms / pu494.adf / MANDDEMO / arexx / PrintAttr.mnd2 < prev    next >
Text File  |  1993-08-18  |  3KB  |  107 lines
  1. /* This script is supplied with the Mand2000 demo and release */
  2. /* versions and may be freely distributed. */
  3.  
  4. /* Print the attributes of the current project, or entire program. */
  5. /* Pass 'project' or 'global' as a parameter.  Default is global. */
  6.  
  7. /* Typically this command is run from the menus which are */
  8. /* installed by the default startup.mnd2 script. */
  9.  
  10. portname = address()    /* Retrieve the current port name. */
  11. /* If the portname does not start with MAND2000 then this script must */
  12. /* have been run with rx, rather than from Mand2000.  Therefore we */
  13. /* need to set the port name.  We do not always set the port name */
  14. /* because it is better to let Mand2000 set it for us, so that */
  15. /* this script can be used with windows other than the one with */
  16. /* port name MAND2000.1. */
  17. if (left(portname, 8) ~= "MAND2000") THEN
  18.     address 'MAND2000.1'
  19.  
  20. parse arg command
  21.  
  22. say
  23.  
  24. if (command = PROJECT) THEN DO
  25.  
  26.     getattr stem MYVAR
  27.  
  28.     PrintMember(left)
  29.     PrintMember(right)
  30.     PrintMember(top)
  31.     PrintMember(bottom)
  32.     PrintMember(centerx)
  33.     PrintMember(centery)
  34.     PrintMember(juliax)
  35.     PrintMember(juliay)
  36.     PrintMember(maxiters)
  37.     PrintMember(pause)
  38.     PrintMember(done)
  39.     PrintMember(permillage)
  40.     PrintMember(fractaltype)
  41.     PrintMember(drawlevel)
  42.     PrintMember(backdrop)
  43.     PrintMember(width)
  44.     PrintMember(height)
  45.     PrintMember(drawwidth)
  46.     PrintMember(drawheight)
  47.     PrintMember(numzooms)
  48.     PrintMember(extraacc)
  49.     PrintMember(precision)
  50.     PrintMember(arexx)
  51.     PrintMember(filename)
  52.     PrintMember(file)
  53.     PrintMember(morphfactor)
  54.     PrintMember(colourmaptype)
  55.     PrintMember(colourmapskip)
  56.     PrintMember(colourmapoffset)
  57.     PrintMember(morph.making)
  58.     if (MYVAR.morph.making = 1) THEN DO
  59.         PrintMember(morph.framesleft)
  60.         PrintMember(morph.framenum)
  61.         PrintMember(morph.basename)
  62.         PrintMember(morph.endfactor)
  63.         END
  64.     PrintMember(movie.making)
  65.     if (MYVAR.movie.making = 1) THEN DO
  66.         PrintMember(movie.framesleft)
  67.         PrintMember(movie.framenum)
  68.         PrintMember(movie.basename)
  69.         PrintMember(movie.tweening)
  70.         PrintMember(movie.zoomx)
  71.         PrintMember(movie.zoomy)
  72.         PrintMember(movie.zoomamount)
  73.         END
  74.     END
  75. ELSE DO
  76.  
  77.     address MAND2000
  78.  
  79.     getattr stem MYVAR
  80.  
  81.     PrintMember(version)
  82.     /* Print the number of windows open. */
  83.     PrintMember(count)
  84.     /* Print all of their ARexx port names. */
  85.     DO i = 1 to MYVAR.count
  86.         PrintMember(i - 1)
  87.         END
  88.     PrintMember(priority)
  89.     PrintMember(palette)
  90.     PrintMember(zoomspeed)
  91.     PrintMember(workbench)
  92.     PrintMember(screendepth)
  93.     PrintMember(screenwidth)
  94.     PrintMember(screenheight)
  95.     PrintMember(screenmode)
  96.     END
  97.  
  98. say 
  99. exit
  100.  
  101.  
  102.  
  103. PrintMember:
  104.     arg x
  105.     say x "is equal to" myvar.x
  106.     return 0
  107.